home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1996 #3
/
AmigaPlus_CD-ROM-EXTRA_Nr.3.bin
/
aminet-spiele
/
zwei spieler
/
hf disk2
/
diskinvaihto.amos
/
diskinvaihto.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
1993-03-08
|
807b
|
36 lines
If Prg Under Then Bgrab 11 : DISK=Peek(Start(11)+4) : Bsend 11
Load "HF2:DiskinVaihto2.Abk"
Open In 1,"Hf2:HFlatauskuva diskinv.anim8"
L=Frame Length(1,999)
A=Frame Load(1 To 6,999)
Screen Open 1,320,256,4096,Lowres
B=Frame Play(6,1,1)
Double Buffer
Hide
Screen Open 2,320,50,8,Lowres : Cls 0 : Flash Off : Hide
Screen Display 2,,240,,
Get Sprite Palette
Screen 1
Close 1
Autoback 0
Update Off
If DISK=1 Then DISKSTRING$="HF1:"
If DISK=3 Then DISKSTRING$="HF3:" : DISK=2
Screen To Front 2
While Not Exist(DISKSTRING$)
SEURAAVA=Frame Play(6,1)
If AB=0 Then Screen 2 : Bob 1,155,30,DISK : Bob Update : AB=1 : Screen 1
For COUNTER=2 To A-1
SEURAAVA=Frame Play(SEURAAVA,1)
Screen Swap
Wait Frame Param+3
Next COUNTER
Wend
Bob Off
Screen Close 1
Screen Close 2
Erase All